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EDTSTILINE = read a command Line 16-Sep-1984 01:56: VAX-11 Bliss-32 V Pa 1 
g-3e8 -1 1382 93:36:96 Disk $v nen ASTER: tho +’seeSriuine. BLI;1 ad (1). 
US | : ital at read a command Line’ stead & né (in 
' Rea comman 
— = ‘v04-000' ' File: TILINE. BLI Edit: JBS1014 
BEGIN | 
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ie COPYRIGHT (c) 1978 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
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00 is ALL RIGHTS RESERVED. 
00 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
00 i® ONLY IN ACCORDANCE WITH THE $ ICENSE AND WITH THE 
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* 
« 
* 
* 
+ 
, 
* 
; N 0 * 
t# COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
. 
* 
* 
* 
* 
* 
. 
+ 
* 
* 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- sepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: EDT -- The DEC Standard Editor 
i ABSTRACT: 
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Read a command Line. 

i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979 

i MODIFIED BY: 
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! 1-001 - Original. bus 18-FEB-1981. This module was erpated by 

extracti ng routine EDTS$TI_ROCMDLN from module TINPUT. 
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= Regularize headers. JBS° 11-Mar-1981 
Add return value for oad of journal file. JBS 02-Oct-1981 
Add an alternate terminator. StS. 1-0ct-1981 

Fix parameter pass to/from char. Sronelaner. tr 27-0ct-1981 

Set a flag if control C actuall Wa. SR shen "9 18s 24-May-1982 

Roneve s Fatecence te ti _STARTE She. 82 

Allow. oe Bet t ke boards, 18541 V?eauget9 


nae $S3 for 8-bit 2 erent f:. 

Add a special test te y* a terainator. 38 23-Aug-1982 
pon’ t wr te a. igre! paregeter. 1983 ¢ 4-Aug-198 

ix @ bug in dit Auge 
ue t modify eotiss. PRV_COL; if is being maintained. JBS 05-Oct-1982 
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6938 } ; 1-014 - Add a conditional for V1220 support. JBS 11-Feb-1983 
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TSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTS$T1_RDCMDLN; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ’; 
LIBRARY "EDTSRC:SUPPORTS'; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


Pa 
D1 SKSVMSMAS ER:C Bi she TILINE .BLI;1 


T ROCHDLN’ = reeds command Line 1b be-1984 P3:3ei88 PISS UmOmASTERS CLOT SRCSTILINE.BLIst (33, 


USBTTL "EDTSSTI_RDCMDLN = read a command Line’ | 
GLOBAL ROUTINE EDTSSTI_RDCMDLN ( 


ET 
97 


read a command Line 
First character (already read) 


if 
COm_BUF , i Command buffer 
END~COM, ' Receives address of end of Line 
' Character to terminate on 
RES_fERM ! resultant terminator 


++ 

FUNCTIONAL DESCRIPTION: 
Read characters up to a terminator into the command buffer. The 
characters are echoed as they are read. Delete is handled and 
CTRL/U aborts the operation. 


| 
FORMAL PARAMETERS: 
| 


C The first character to be handled (it was read previously) 
COM_BUF Pointer into the command buffer where the characters should 
be placed. 
END_COM A character pointer to receive the pointer after the characters 
have been read. 
TERM A special terminator. (Escape, CSI and SS3 are always terminators.) 
RES_TERM The actual terminator. 


IMPLICIT INPUTS: 


EDTS$T_CMD_BUF 
EDT$$G_TIN_ECHOPOS 


IMPLICIT OUTPUTS: 


EDTS$$G_TIN_ECHOFLG 
EDT$$G_CC_BONE 
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99 
0 
Bf 
0 
be ROUTINE VALUE: 
710 1 = the string was read, 
711 8 = aborted by CTRL/U or CTRL/C 
ng = end of journal file 
714 SIDE EFFECTS: 
715 
rig NONE 
71 
ne ys 
3 BEGIN 
7 EXTERNAL ROUTINE 
07 5 EDTSSERA.MSGLN, 
| 


] 
EDTSTILINE EDTSTILINE = read a command Line 18-50 $e9-1984 VAX-11 Bliss-32 V4.0-74 Page 5 
£04 2006 EDTSSTT ORD RDOCMDLN = “reed 8 command Line Sep-1 38 9): 3: 98 DL SKSUMGMASTERSCEDT SRCSTILINE.BLI:1 (3) | 
| 
: «156 724 DTSSCHK_CC | 
; 155 725 ED TSS TRNCKBADK, | 
..% ° 7 $ ED Ts INPCH, 
oe 7 EDTSSTI_DELK : NOVALUE, 
; ! $ f $ EDTSSTI-ECHOCH : NOVALUE; | 
; 160 730 axtee, 
; 161 731 EDTSST_CMD_BUF ' sraneee bine buffer 
3 166 7 ¢ EDT$$G_TIN-ECHOFLG, ! Fl 9,10 cating character have been echoed 
3; 7 EDTS$G_TIN_ECHOPOS, i Pos Teion on the echo Line 
3 | 4 : EDTS$G_CC_BONE; Set tol if control C actually aborts something 
; 1 7 LOC 
; 16 7 $ COM_POINT, 
i oR fet 
3 19 740 
3; 7} 741 COM_POINT = .COM_BUF; 
: 176 Br eg '¢ 
3 VW 74 ! Use C as the first character. 
; 174 0744 !e 
; 12? oF CH = .C; 
3 179 Ope? i If the terminator can be any character, then return immediately | 
; «#4178 0748 _upon seeing the delete character. 
; 179 0749 
: 180 or ee 
; «(181 751 IF (. TERM EQL ASC_K_DEL) THEN RETURN (1); 
; iss O726 
; 075 WHILE 1 DO 
3 4 Bee BEGIN 
; 186 0756 SELECTONE .CH OF 
: 187 075 SET 
; «4188 3738 
3; «(189 759 CASC_K_DEL) : 
: 190 760 '¢ 
3 198 fee 3 | i ; Delete character, delete the previous character if there is one. 
: 19 76 
3; 194 764 4 IF ¢(.COM_POINT NEQ .COM_BUF ) 
; «195 765 3 THEN 
3 136 766 4 oreis | 
; 767 4 COM_POINT = CHSPLUS (.COM_POINT 
> 198 768 4 EDISSTI _DELK (CHSRCHAR (.COM_ POINT) ) | 
; 199 z i END; | 
3 Of 771 CASC_K_ESC 
Py 4 77 } 
: 20 Lt 077 Z1F SUPPORT_VT220 
3 Be 774 THEN 
; 5 775 - ASC_K_CSI, ASC_K_SS3 
3 06 77 2F I 
: 20 77 
Py 77 j 3 | 
; 77 '¢ 
; 210 780 i Escape, CSI or $S3, terminate the read and gobble up the rest of the escape | 
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Shcnaih eo eked a nennend Line 12-808 =1 382 93:38:08 ot 
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or control sequence. 
BEGIN 
IF CEDTSSTRN_KPADK (KEY) EQL 0) THEN RETURN (2); 
-RES_TERM = .KEY; 

EXITCOOP; 

END; 

~ C.TERM] : 

The special terminator, end the read. 

' BEGIN 

-RES_TERM = .TERM; 

EXITCOOP; 

END; 

- CASC_K_CTRL_UJ : 

! Abort the read operation, erasing the echo Line. 


BEGIN 
EDTS$G_TIN_ECHOFLG = 1; 
~END_COM = .COM_BUF; 
EDTSSERA_MSGLN 7%); 
RETURN (0); 

. COTHERWISE) : 

i Place the character in the buffer. 


FE te es (.COM_POINT, CHSPLUS (EDTSST_CMD_BUF, 256)) 


A (.CH, COM_POINT); 


N 
CHSWCHAR 
EDTS$T1_ECHOCH (.CH)? 


TES; 


'¢ 
: Check for a control C as abort the read. 


IF EDTSSCHK_CC () 
THEN cin 

.END_COM = .COM_BUF; 
EDTSSG_¢¢ DONE = 1; 
RETURN” (07; 


IF (EDTSSTI_INPCH (CH) EQL 0) THEN RETURN (2); 
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—E = read a command Line 1b-$6 1984 256: VAX-11 Bliss-32 V4.0-74 & 7 
DCMDLN = read a command Line 1 ~8ep-19 4 94:36:98 DT EKSVMEMASTERSCEDT SRCITILINE .BLIs1 — (3) 


ee 


; 8 


-END COM = .COM_POINT; 


L 

I 

END; 
'¢ 
} Return a pointer one character beyond the Last one read. 

a 

RETURN (1); 

END; 


! of routine EDTS$TI_RDCMDLN 


} 
| 
TITLE FD TSTILINE EDTSTILINE - read a command Line 
IDENT \V04-000\ 
.EXTRN EDTSSERA_MSGLN, EDTSSCHK_CC 
-EXTRN EDTSSTRN_KPADK, EDT$$TI_YNPCH 
-EXTRN EDTS$TI_BELK, EDT$$TI_ECHOCH 
-EXTRN EDTSS$T_CMD_BUF, EDTS$G_TIN_ECHOFLG 
-EXTRN EDT$$G_TIN-ECHOPOS 
“EXTRN EDT$$G~CC_BONE 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
000¢ 99000 .ENTRY EDTSSTI_RDCMDLN, Save R2,R3 : 0669 
5E 08 C 9002 SUBL2 #8, SP : 
‘ 08 AC 00 0000 MOVL § COM_BUF, COM_POINT > 0741 
04 AE 04 AC 90 00009 Move = ¢ + 0745 
0000007F  8F 10 AC D1 0000E CMPL TERM, #127 : 0751 
03 12 00016 BNEQ =:*1$ : 
0080 31 00018 BRW 11$ ; 
52 04 AE 9A 0001B 18 MOVZBL CH, R2 + 0756 
7F oF 52 91 OOOTF CMPBséR2,, #127 : 0759 
12 12 000 3 BNEQ : 
08 Ac 53 D1 000 CMPL COM_POINT, COM_BUF + 0764 
6f 13 00029 BEQL $ ; 
7E 3 9A 00028 MOVZBL <-(COM_POINT), -(SP) : 0768 
000000006 00 01 FB 90 7 CALLS #1, EDTS$TI_DELK ; 
$3 11 000 BRB 7 + 0764 
1B 91 00037 2$ CMPB saR2, #27 : 0771 
O¢ 13 99 A BEQL $ ; 
8F soa 91 0003c¢ CMPB OS saR2, #143 : 
9 13 0004 BEQL $ ; 
98 «SF 91 0004 CMPB Re. #155 : 
13 12 0004 BNEQ 4 : 
E DD 00048 3$ PUSHL SP : 0785 
000000006 00 8. 4A CALLS #1, EDTS$TRN_KPADK ; 
0 D 51 TSTL RO : 
6— 1 3 BEQL ©: 9$ : 
14 «BC 6— D MOVL KEY, @RES_TERM : 0787 
1 9 BRB 10$ : 0783 
10 AC D1 B 4$ CMPL 2, TERM : 0791 
14 BC 10 AC of y SOL «TERM, ORES. TERN : 97 
oF BRB 10$ . : 0798 
15 é 91 5$ CMPBséR2, #21 : 0800 
1 if B BNEQ 6 ; 
000000006 00 01 »D 6D MOVL #1, EDT$$G_TIN_ECHOFLG + 0805 
} 


Routine Base: 


3; Routine Size: 


a command Line 


@ command Line 
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-EDTSCODE + 0000 


3B¢ 92:28:58 DiSksumsmast 


M_BUF, @END_COM 
"9 “EDTSSERA_MSGLN 


, (COM_POINT)+ 
‘ EDTSSTI pf cHocH 
6° is 
ep gait CoM 
Tie CC~DONE 


. EDTSSTI_INPCH 


» RO 


R 
R 
« 
f 
R 
C 
x 
1 
C 
2 
R 
9 
1 
« 
COM_POINT, @END_COM 
#1,~RO 


2$ 
H 
1 
0 
3 
$ 
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0 
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yesh a 
SRCJTILINE.BLI; "te 


DIS$T CMD_BUF +256, RO 
M_POINT,~R 
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pened tie Complete 
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EDTSTILINE EDTSTILINE = read a command Line 16-Sep-19 VAX-11 Bliss-32 V 
FO e008 EDTSSTL_RDCMDLN - read a command Line 12-808 -1 198 93: 36: 98 DISKSVMSMASTER: a + SRCSTILINE. BLI; "te 
: 38 0850 } END ! of module EDTSTILINE 

: 282 9 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 210 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 

3 onqonaas® SyERGlG ceeeeees Pages Processing 

: File Total Loaded Percent Mapped Time 

; ~BE238DUAGE: EDT. SRCJEDT.L32;1 377 6 40 00:00.3 

3 ~$5238 EDT. SRCIPSECTS.L32;1 1 50 7 00:00.1 

> 7$255$DUA28:CEDT.SRCISUPPORTS.L $2; 1 1 50 5 00:00.1 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$: TILINE/OBJ=OBJ$:TILINE MSRC$:TILINE.BLI/UPDATE=(ENH$: TILINE) 
3 pize 210 code + 0 data bytes 

2 

4 a $s : . 

3 Cees ee py mi fin: i $ 

: ye ie 9357 

; Used: 94 pages 


9 
(4) 
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